home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / weirdscience / downloads / ibrowse1_02-catalogs.lha / IBrowse-1.02-Catalogs / Install Catalogs next >
Text File  |  1996-11-28  |  3KB  |  154 lines
  1. (procedure cat_copy
  2.   (makedir catdir
  3.     (help @makedir-help)
  4.   )
  5.   (makedir (tackon catdir cat_name)
  6.     (help @makedir-help)
  7.   )
  8.   (copyfiles
  9.     (help @copyfiles-help)
  10.     (source (tackon (tackon "catalogs" cat_name) "ibrowse.catalog") )
  11.     (dest (tackon catdir cat_name) )
  12.   )
  13. )
  14.  
  15. (set @default-dest
  16.   (askdir
  17.     (prompt "In which directory have you installed IBrowse?")
  18.     (help #destdir-help)
  19.     (default "Work:IBrowse") ) )
  20.  
  21. (set catdir (tackon @default-dest "catalogs") )
  22.  
  23. (set catmask 0)
  24.  
  25. (if (exists (tackon catdir "català") )
  26.   (set catmask (BITOR catmask 1) ) )
  27.  
  28. (if (exists (tackon catdir "czech") )
  29.   (set catmask (BITOR catmask 2) ) )
  30.  
  31. (if (exists (tackon catdir "dansk") )
  32.   (set catmask (BITOR catmask 4) ) )
  33.  
  34. (if (exists (tackon catdir "deutsch") )
  35.   (set catmask (BITOR catmask 8) ) )
  36.  
  37. (if (exists (tackon catdir "français") )
  38.   (set catmask (BITOR catmask 16) ) )
  39.  
  40. (if (exists (tackon catdir "greek") )
  41.   (set catmask (BITOR catmask 32) ) )
  42.  
  43. (if (exists (tackon catdir "italiano") )
  44.   (set catmask (BITOR catmask 64) ) )
  45.  
  46. (if (exists (tackon catdir "nederlands") )
  47.   (set catmask (BITOR catmask 128) ) )
  48.  
  49. (if (exists (tackon catdir "norsk") )
  50.   (set catmask (BITOR catmask 256) ) )
  51.  
  52. (if (exists (tackon catdir "polski") )
  53.   (set catmask (BITOR catmask 512) ) )
  54.  
  55. (if (exists (tackon catdir "português") )
  56.   (set catmask (BITOR catmask 1024) ) )
  57.  
  58. (if (exists (tackon catdir "svenska") )
  59.   (set catmask (BITOR catmask 2048) ) )
  60.  
  61. (set catmask
  62.   (askoptions
  63.     (prompt "Which catalogs do you want to install?")
  64.     (help #askoptions-help)
  65.     (choices "català" "czech" "dansk" "deutsch" "français" "greek" "italiano" "nederlands" "norsk" "polski" "português" "svenska")
  66.     (default catmask)
  67.   )
  68. )
  69.  
  70. (if (BITAND catmask 1)
  71.   (
  72.     (set cat_name "català")
  73.     (cat_copy)
  74.   )
  75. )
  76.  
  77. (if (BITAND catmask 2)
  78.   (
  79.     (set cat_name "czech")
  80.     (cat_copy)
  81.   )
  82. )
  83.  
  84. (if (BITAND catmask 4)
  85.   (
  86.     (set cat_name "dansk")
  87.     (cat_copy)
  88.   )
  89. )
  90.  
  91. (if (BITAND catmask 8)
  92.   (
  93.     (set cat_name "deutsch")
  94.     (cat_copy)
  95.   )
  96. )
  97.  
  98. (if (BITAND catmask 16)
  99.   (
  100.     (set cat_name "français")
  101.     (cat_copy)
  102.   )
  103. )
  104.  
  105. (if (BITAND catmask 32)
  106.   (
  107.     (set cat_name "greek")
  108.     (cat_copy)
  109.   )
  110. )
  111.  
  112. (if (BITAND catmask 64)
  113.   (
  114.     (set cat_name "italiano")
  115.     (cat_copy)
  116.   )
  117. )
  118.  
  119. (if (BITAND catmask 128)
  120.   (
  121.     (set cat_name "nederlands")
  122.     (cat_copy)
  123.   )
  124. )
  125.  
  126. (if (BITAND catmask 256)
  127.   (
  128.     (set cat_name "norsk")
  129.     (cat_copy)
  130.   )
  131. )
  132.  
  133. (if (BITAND catmask 512)
  134.   (
  135.     (set cat_name "polski")
  136.     (cat_copy)
  137.   )
  138. )
  139.  
  140. (if (BITAND catmask 1024)
  141.   (
  142.     (set cat_name "português")
  143.     (cat_copy)
  144.   )
  145. )
  146.  
  147. (if (BITAND catmask 2048)
  148.   (
  149.     (set cat_name "svenska")
  150.     (cat_copy)
  151.   )
  152. )
  153.  
  154.